Exercise: Simple Interactivity

ggplotly & Time Series

Library Packages

library(tidyverse)

-- Attaching packages --------------------------------------- tidyverse 1.2.1 --
v ggplot2 3.1.0     v purrr   0.2.5
v tibble  2.0.1     v dplyr   0.7.8
v tidyr   0.8.2     v stringr 1.4.0
v readr   1.3.1     v forcats 0.3.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

library(plotly)

Attaching package: 㤼㸱plotly㤼㸲

The following object is masked from 㤼㸱package:ggplot2㤼㸲:

    last_plot

The following object is masked from 㤼㸱package:stats㤼㸲:

    filter

The following object is masked from 㤼㸱package:graphics㤼㸲:

    layout

Data

duke_ncaa_forcast <-
  read_csv("https://raw.githubusercontent.com/fivethirtyeight/data/master/historical-ncaa-forecasts/historical-538-ncaa-tournament-model-results.csv", 
    col_types = cols(year = col_date(format = "%Y"), favorite_win_flag = col_logical())) %>% 
  filter(favorite == "Duke", round < 3)
duke_ncaa_forcast

ggplot2

duke_2ndround_win_probability <- 
ggplot(duke_ncaa_forcast, aes(x = year, y = favorite_probability)) +
  geom_point(aes(color = favorite_win_flag, 
                 shape = favorite_win_flag), size = 4) +
  geom_line() 
duke_2ndround_win_probability

Plotly via ggplotly

ggplotly(duke_2ndround_win_probability)